home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ccrptmr / fnotify.frm < prev    next >
Text File  |  1998-04-11  |  11KB  |  361 lines
  1. VERSION 5.00
  2. Begin VB.Form FNotify 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4425
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5175
  8.    Icon            =   "FNotify.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4425
  11.    ScaleWidth      =   5175
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Frame Frame3 
  14.       Caption         =   "Intrinsic Timer:"
  15.       Height          =   795
  16.       Left            =   120
  17.       TabIndex        =   17
  18.       Top             =   3000
  19.       Width           =   4935
  20.       Begin VB.Timer tmrClassic 
  21.          Left            =   4440
  22.          Top             =   240
  23.       End
  24.       Begin VB.CheckBox chkEvent 
  25.          Caption         =   "Enabled"
  26.          Height          =   255
  27.          Index           =   2
  28.          Left            =   3360
  29.          TabIndex        =   18
  30.          Top             =   360
  31.          Width           =   1395
  32.       End
  33.       Begin VB.Label Label1 
  34.          Alignment       =   1  'Right Justify
  35.          AutoSize        =   -1  'True
  36.          Caption         =   "Classic Event Method:"
  37.          Height          =   195
  38.          Index           =   4
  39.          Left            =   180
  40.          TabIndex        =   20
  41.          Top             =   360
  42.          Width           =   1590
  43.       End
  44.       Begin VB.Label lblEvent 
  45.          BorderStyle     =   1  'Fixed Single
  46.          Caption         =   "lblEvent"
  47.          Height          =   315
  48.          Index           =   2
  49.          Left            =   1920
  50.          TabIndex        =   19
  51.          Top             =   300
  52.          Width           =   1215
  53.       End
  54.    End
  55.    Begin VB.CommandButton cmdAbout 
  56.       Cancel          =   -1  'True
  57.       Caption         =   "&About"
  58.       Height          =   375
  59.       Left            =   1860
  60.       TabIndex        =   16
  61.       Top             =   3960
  62.       Width           =   1455
  63.    End
  64.    Begin VB.Frame Frame2 
  65.       Caption         =   "Implements ICcrpCountdownNotify:"
  66.       Height          =   1275
  67.       Left            =   120
  68.       TabIndex        =   9
  69.       Top             =   1560
  70.       Width           =   4935
  71.       Begin VB.CheckBox chkNotify 
  72.          Caption         =   "Enabled"
  73.          Height          =   255
  74.          Index           =   1
  75.          Left            =   3360
  76.          TabIndex        =   11
  77.          Top             =   780
  78.          Width           =   1395
  79.       End
  80.       Begin VB.CheckBox chkEvent 
  81.          Caption         =   "Enabled"
  82.          Height          =   255
  83.          Index           =   1
  84.          Left            =   3360
  85.          TabIndex        =   10
  86.          Top             =   420
  87.          Width           =   1395
  88.       End
  89.       Begin VB.Label lblNotify 
  90.          BorderStyle     =   1  'Fixed Single
  91.          Caption         =   "lblNotify"
  92.          Height          =   315
  93.          Index           =   1
  94.          Left            =   1920
  95.          TabIndex        =   15
  96.          Top             =   780
  97.          Width           =   1215
  98.       End
  99.       Begin VB.Label lblEvent 
  100.          BorderStyle     =   1  'Fixed Single
  101.          Caption         =   "lblEvent"
  102.          Height          =   315
  103.          Index           =   1
  104.          Left            =   1920
  105.          TabIndex        =   14
  106.          Top             =   360
  107.          Width           =   1215
  108.       End
  109.       Begin VB.Label Label1 
  110.          Alignment       =   1  'Right Justify
  111.          AutoSize        =   -1  'True
  112.          Caption         =   "Notification Method:"
  113.          Height          =   195
  114.          Index           =   3
  115.          Left            =   345
  116.          TabIndex        =   13
  117.          Top             =   840
  118.          Width           =   1425
  119.       End
  120.       Begin VB.Label Label1 
  121.          Alignment       =   1  'Right Justify
  122.          AutoSize        =   -1  'True
  123.          Caption         =   "Classic Event Method:"
  124.          Height          =   195
  125.          Index           =   2
  126.          Left            =   180
  127.          TabIndex        =   12
  128.          Top             =   420
  129.          Width           =   1590
  130.       End
  131.    End
  132.    Begin VB.Frame Frame1 
  133.       Caption         =   "Implements ICcrpTimerNotify:"
  134.       Height          =   1275
  135.       Left            =   120
  136.       TabIndex        =   0
  137.       Top             =   120
  138.       Width           =   4935
  139.       Begin VB.CheckBox chkEvent 
  140.          Caption         =   "Enabled"
  141.          Height          =   255
  142.          Index           =   0
  143.          Left            =   3360
  144.          TabIndex        =   3
  145.          Top             =   420
  146.          Width           =   1395
  147.       End
  148.       Begin VB.CheckBox chkNotify 
  149.          Caption         =   "Enabled"
  150.          Height          =   255
  151.          Index           =   0
  152.          Left            =   3360
  153.          TabIndex        =   6
  154.          Top             =   780
  155.          Width           =   1395
  156.       End
  157.       Begin VB.Label Label1 
  158.          Alignment       =   1  'Right Justify
  159.          AutoSize        =   -1  'True
  160.          Caption         =   "Classic Event Method:"
  161.          Height          =   195
  162.          Index           =   0
  163.          Left            =   180
  164.          TabIndex        =   1
  165.          Top             =   420
  166.          Width           =   1590
  167.       End
  168.       Begin VB.Label Label1 
  169.          Alignment       =   1  'Right Justify
  170.          AutoSize        =   -1  'True
  171.          Caption         =   "Notification Method:"
  172.          Height          =   195
  173.          Index           =   1
  174.          Left            =   345
  175.          TabIndex        =   4
  176.          Top             =   840
  177.          Width           =   1425
  178.       End
  179.       Begin VB.Label lblEvent 
  180.          BorderStyle     =   1  'Fixed Single
  181.          Caption         =   "lblEvent"
  182.          Height          =   315
  183.          Index           =   0
  184.          Left            =   1920
  185.          TabIndex        =   2
  186.          Top             =   360
  187.          Width           =   1215
  188.       End
  189.       Begin VB.Label lblNotify 
  190.          BorderStyle     =   1  'Fixed Single
  191.          Caption         =   "lblNotify"
  192.          Height          =   315
  193.          Index           =   0
  194.          Left            =   1920
  195.          TabIndex        =   5
  196.          Top             =   780
  197.          Width           =   1215
  198.       End
  199.    End
  200.    Begin VB.CommandButton cmdExit 
  201.       Caption         =   "E&xit"
  202.       Height          =   375
  203.       Left            =   3480
  204.       TabIndex        =   8
  205.       Top             =   3960
  206.       Width           =   1455
  207.    End
  208.    Begin VB.CommandButton cmdBlock 
  209.       Caption         =   "Test &Blocking"
  210.       Height          =   375
  211.       Left            =   240
  212.       TabIndex        =   7
  213.       Top             =   3960
  214.       Width           =   1455
  215.    End
  216. End
  217. Attribute VB_Name = "FNotify"
  218. Attribute VB_GlobalNameSpace = False
  219. Attribute VB_Creatable = False
  220. Attribute VB_PredeclaredId = True
  221. Attribute VB_Exposed = False
  222. Option Explicit
  223.  
  224. Implements ICcrpTimerNotify
  225. Private tmrNotify As ccrpTimer
  226. Private WithEvents tmrEvent As ccrpTimer
  227. Attribute tmrEvent.VB_VarHelpID = -1
  228.  
  229. Implements ICcrpCountdownNotify
  230. Private cntNotify As ccrpCountdown
  231. Private WithEvents cntEvent As ccrpCountdown
  232. Attribute cntEvent.VB_VarHelpID = -1
  233.  
  234. Private tmrStopWatch As ccrpStopWatch
  235.  
  236. Const nTmr = 0
  237. Const nCnt = 1
  238. Const nVb = 2
  239.  
  240. Private Sub chkEvent_Click(Index As Integer)
  241.    If Index = nTmr Then
  242.       tmrEvent.Enabled = CBool(chkEvent(Index).Value)
  243.    ElseIf Index = nCnt Then
  244.       cntEvent.Enabled = CBool(chkEvent(Index).Value)
  245.    ElseIf Index = nVb Then
  246.       tmrClassic.Enabled = CBool(chkEvent(Index).Value)
  247.    End If
  248. End Sub
  249.  
  250. Private Sub chkNotify_Click(Index As Integer)
  251.    If Index = nTmr Then
  252.       tmrNotify.Enabled = CBool(chkNotify(Index).Value)
  253.    Else
  254.       cntNotify.Enabled = CBool(chkNotify(Index).Value)
  255.    End If
  256. End Sub
  257.  
  258. Private Sub cmdAbout_Click()
  259.    tmrNotify.About
  260. End Sub
  261.  
  262. Private Sub cmd